Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/DBALANCE.FCP

Text File | 1990-09-23 | 2KB | 176 lines

@DSPLY "Declining Balance"
@DSPLY "Depreciation"
=
@NEW STEP
@DSPLY "Enter % factor next ---"
@GET "125, 150, or 200"
@RIN (1)
@GET "Enter depreciable basis"
@RIN (2)
@GET "Enter salvage value"
@RIN (3)
@GET "Life? (in years)"
@RIN (4)
@GET "Month acquired? (1-12)"
@RIN (5)
=
@NEW STEP
@ROUT (1)
/
@ROUT (4)
=
@NEW STEP
@%
@RIN (6)
(13-
@ROUT (5)
)/12=
@NEW STEP
@RIN (5)
1
@RIN (8)
@ROUT (2)
*
@ROUT (6)
*
@ROUT (5)
=
@NEW STEP
@RIN (7)
@ROUT (2)
-
@ROUT (7)
=
@NEW STEP
@RIN (2)
@IF <
@ROUT (3)
=
@NEW STEP
@GOTO (28)
=
@NEW STEP
@ROUT (8)
@DSPLY "For year number"
@ROUT (7)
@DSPLY "the depreciation is___."
=
@NEW STEP
@ROUT (8)
+1=
@NEW STEP
@RIN (8)
@ROUT (4)
-1=
@NEW STEP
@RIN (4)
@IF =
0=
@NEW STEP
@GOTO (20)
=
@NEW STEP
@ROUT (2)
*
@ROUT (6)
=
@NEW STEP
@RIN (7)
@ROUT (2)
-
@ROUT (7)
=
@NEW STEP
@RIN (2)
@IF <
@ROUT (3)
=
@NEW STEP
@GOTO (28)
=
@NEW STEP
@ROUT (8)
@DSPLY "For year number"
@ROUT (7)
@DSPLY "the depreciation is___."
=
@NEW STEP
@GOTO (10)
=
@NEW STEP
1-
@ROUT (5)
=
@NEW STEP
@RIN (5)
@IF =
0=
@NEW STEP
@GOTO (32)
=
@NEW STEP
@ROUT (2)
*
@ROUT (6)
*
@ROUT (5)
=
@NEW STEP
@RIN (7)
@ROUT (2)
-
@ROUT (7)
=
@NEW STEP
@RIN (2)
@IF <
@ROUT (3)
=
@NEW STEP
@GOTO (28)
=
@NEW STEP
@ROUT (8)
@DSPLY "For year number"
@ROUT (7)
@DSPLY "the depreciation is___."
@GOTO (32)
=
@NEW STEP
@ROUT (2)
+
@ROUT (7)
-
@ROUT (3)
=
@NEW STEP
@RIN (7)
@IF >
0=
@NEW STEP
@ROUT (8)
@DSPLY "For year number"
@ROUT (7)
@DSPLY "the depreciation is___."
=
@NEW STEP
0
@DSPLY "** Fully depreciated **"
@Goto (33)
=
@NEW STEP
0
@DSPLY "** End of asset life **"
=
@NEW STEP
@GET "0 = Quit. 1 = Continue."
@IF =
1=
@NEW STEP
-1=
@GOTO (2)
=
@NEW STEP
-1=
@STOP